MacFormat 1996 June/macformat-038.iso/Demos/Interactive Wave/_DATAS/SHARED.Dxr/00982_Gestion de la Barrette.ls

Text File | 1995-08-06 | 5.9 KB | 151 lines

on SetDcBarrette AccuA
  global DcBarrette
  set DcBarrette to AccuA
end

on InitBarrette AccuA
  global DcBarrette, TypeBarrette, SprFondBar, CastBarrette
  SetDcQuit(0)
  set DcBarrette to 1
  if length(AccuA) <> 3 then
    set AccuA to chars(AccuA, 5, 7)
  end if
  set TypeBarrette to "0010110101000" & AccuA
  puppetSprite(SprFondBar, 1)
  set the castNum of sprite SprFondBar to CastBarrette
  InitCastRollEff()
  BalayBarrette()
  InitFlecheDemo()
end

on ClicBoutBar
  global ColCastBar, ChampsBarrette
  if (ColCastBar < 0) or (ColCastBar > 16) then
    exit
  end if
  CallM(getAt(ChampsBarrette, ColCastBar + 1))
end

on BalayBarrette
  global SprFondBar, ColCastBar, ChampsBarrette, DcCursMain, CastEfface, SprBoutBar
  if rollOver(SprFondBar) then
    set ColonnePointe to the mouseH / 40
    if ColCastBar <> ColonnePointe then
      set ColCastBar to ColonnePointe
      set the castNum of sprite SprBoutBar to getAt(ChampsBarrette, ColonnePointe + 33)
      set the locH of sprite SprBoutBar to getAt(ChampsBarrette, ColonnePointe + 49)
    end if
    set DcCursMain to getAt(ChampsBarrette, ColonnePointe + 65)
    return SetAffTxtRoll(getAt(ChampsBarrette, ColonnePointe + 17))
  end if
  if ColCastBar <> 99 then
    set the castNum of sprite SprBoutBar to CastEfface
    set ColCastBar to 99
  end if
end

on InitCastRollEff
  global NameExt, TypeBarrette, ChampsBarrette, listBarrette010, listBarrette011, listBarrette110, listBarrette111, listBarretteNav, MemoNavPuce, CastRollEff, CastBarrette, SprFondBar, SprFondBarII, SprRollOver, CastFondTextRoll, DcDemoRec, CastEfface, ColCastBar, NcRollBarrette
  if the movieName <> "NAVIG" then
    set NomFinBar to chars(TypeBarrette, 14, 16)
    set NomCastBarII to "FNDBA" & NomFinBar
    if NomFinBar = "010" then
      set ChampsBarrette to listBarrette010
    end if
    if NomFinBar = "011" then
      set ChampsBarrette to listBarrette011
    end if
    if NomFinBar = "110" then
      set ChampsBarrette to listBarrette110
    end if
    if NomFinBar = "111" then
      set ChampsBarrette to listBarrette111
    end if
  else
    if word 1 of MemoNavPuce = "DEPART" then
      set NomCastBarII to "FNDBADEP"
      set TypeBarrette to "0010110100010010"
    else
      set NomCastBarII to "FNDBANAV"
      set TypeBarrette to "0010110101010010"
    end if
    set Champs to list("Nothing", "Nothing", "Logo", "Nothing", "SonMoins", "SonPlus", "Nothing", "Quitter", "Nothing", "RetourNavig", "Nothing", "Aide", "Nothing", "Nothing", "LanceDemo", "Nothing")
    set ChampsBarrette to SetChampsBarrette(Champs)
  end if
  if the castNum of sprite SprFondBar = CastBarrette then
    puppetSprite(SprFondBarII, 1)
    set the castNum of sprite SprFondBarII to the number of cast NomCastBarII
    set the locV of sprite SprFondBarII to 460
    set the locH of sprite SprFondBarII to 582
    puppetSprite(SprRollOver, 1)
    set the visible of sprite SprRollOver to 1
    set the locV of sprite SprRollOver to 441
    set the locH of sprite SprRollOver to 246
    RestoreBoutBar()
    if RecupToutConsulte() = 0 then
      set CastRollEff to CastFondTextRoll
    else
      set CastRollEff to the number of cast "R_ToutConsulte"
    end if
    if DcDemoRec = 1 then
      set CastRollEff to the number of cast "R_DemoRec"
    end if
  else
    set CastRollEff to CastEfface
    set ColCastBar to 99
    set NcRollBarrette to 2
  end if
  RestoreCursor()
end

on RestoreBoutBar
  global SprBoutBar, CastEfface, NcRollBarrette, ColCastBar
  puppetSprite(SprBoutBar, 1)
  set the visible of sprite SprBoutBar to 1
  set the ink of sprite SprBoutBar to 36
  set the castNum of sprite SprBoutBar to CastEfface
  set the locV of sprite SprBoutBar to 460
  set the locH of sprite SprBoutBar to 0
  set ColCastBar to 99
  set NcRollBarrette to 2
end

on InitVarBarrette
  global CastBarrette, CastBoutBar, CastFondTextRoll, CastTextDemoRoll, CastPatientez, SprFondBar, SprFondBarII, SprBoutBar, SprRollOver, TypeBarrette, listBarrette010, listBarrette011, listBarrette110, listBarrette111, listBarretteNav
  set CastBarrette to the number of cast "N_Barrette"
  set CastBoutBar to the number of cast "N_CastRollbar"
  set CastFondTextRoll to the number of cast "FondTexteRoll"
  set CastTextDemoRoll to the number of cast "R_DemoEnCours"
  set CastPatientez to the number of cast "R_Patientez"
  set SprFondBar to 43
  set SprRollOver to 44
  set SprFondBarII to 45
  set SprBoutBar to 46
  set Champs to list("Nothing", "Nothing", "Logo", "Nothing", "SonMoins", "SonPlus", "Nothing", "Quitter", "Nothing", "Fusee", "Nothing", "Nothing", "Nothing", "Retour", "SautDePuce", "Suite")
  set TypeBarrette to "0010110101000011"
  set listBarrette011 to SetChampsBarrette(Champs)
  set TypeBarrette to "0010110101000110"
  set listBarrette110 to SetChampsBarrette(Champs)
  set TypeBarrette to "0010110101000111"
  set listBarrette111 to SetChampsBarrette(Champs)
  set TypeBarrette to "0010110101000010"
  set listBarrette010 to SetChampsBarrette(Champs)
  set listBarretteNav to list()
end

on SetChampsBarrette Champs
  global TypeBarrette, CastBoutBar, CastEfface
  set CastTextFondRoll to the number of cast "FondTexteRoll"
  set ChampsBarrette to list(EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 40, 80, 120, 160, 200, 240, 280, 320, 360, 400, 440, 480, 520, 560, 600, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
  repeat with AccuA = 1 to 16
    set Oper to value(char AccuA of TypeBarrette)
    setAt(ChampsBarrette, AccuA, getAt(Champs, AccuA))
    set AccuB to (the number of cast ("R_" & getAt(Champs, AccuA)) * Oper) + (CastTextFondRoll * (Oper = 0))
    setAt(ChampsBarrette, AccuA + 16, AccuB)
    set AccuC to (CastBoutBar * Oper) + (CastEfface * (Oper = 0))
    setAt(ChampsBarrette, AccuA + 32, AccuC)
    setAt(ChampsBarrette, AccuA + 64, Oper)
  end repeat
  return ChampsBarrette
end